home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Resources / System / BoingBag1 / BoingBag_Install < prev    next >
Text File  |  1999-12-24  |  20KB  |  694 lines
  1. ;$VER: Install 44.2 (23.12.1999)
  2.  
  3. (effect "center" "radial" $FF0066 $EEAA00)
  4.  
  5. (set #language (getenv "Language"))
  6.  
  7. (set #wbversion 0)
  8. (set #wbversion (getversion "libs:version.library"))
  9. (set #wbversion (/ #wbversion 65536) )
  10.  
  11. (set #iconversion 0)
  12. (set #iconversion (getversion "icon.library" (resident)))
  13. (set #iconversion (/ #iconversion 65536) )
  14.  
  15. (complete 0)
  16.  
  17. ;=============================================================================
  18. ; English strings
  19.  
  20. (set default_lang 4)
  21. (set default_country 1)
  22. (set #languages 1)
  23.  
  24. (set #pretendabort "Pretend mode cannot be used with this installation script.")
  25.  
  26. (set #mainwelcome "Welcome to he AmigaOS 3.5 Update installation.\n")
  27.  
  28. (set #bad-3.5
  29. (cat "\n\n\nPlease start the pre-installation first!!!"
  30. ))
  31.  
  32. (set #bad-kick
  33. (cat "\n\nYou have to install Kickstart 3.1 ROMs and Workbench before installing Workbench 3.5."
  34. ))
  35.  
  36. (set #notenoughmemory
  37. (cat "\n\nApproximately 20MByte of disk space is needed on your target volume."
  38.                         "\n\nYou only have \"%s\"KByte free.\n\n"
  39.                         "Delete or move some files from the target volume and try again."
  40. ))
  41.  
  42. (set #introduction
  43. (cat "\n\nThis program lets you install the Update Package of the Amiga Operating "
  44.      "System on your hard drive.\n\nIt can only be used to upgrade an 3.5 release."
  45. ))
  46.  
  47. (set #ask-install-help
  48. (cat "\nYou have to choose which operation you would like to "
  49.      "perform.\n\n"
  50.      "Selecting the \"Install Release 3.5\" gadget lets you perform a update "
  51.      "installation of the Release 3.5 Workbench software. This option should "
  52.      "be chosen when upgrading a system from prior releases, or after "
  53.      "installing Release 3.1 on a new hard drive unit.\n\n"
  54.      "Selecting the \"Install CD-ROM driver\" gadget lets you perform "
  55.      "the installation of CachCDFS CD-ROM driver. "
  56.      "This option should only be chosen when Release 3.1 has already "
  57.      "been installed.\n\n"
  58. ))
  59.  
  60.  
  61. (set #confirm-target
  62. (cat "\n\nVERY IMPORTANT!!!\n\nThis program installs the update 3.5 on your hard disk. "
  63.      "Older files will be overwritten."
  64.      "\n\n"
  65.      "Do you want to install the Boing Bag 1 on partition \"%s\"? "
  66. ))
  67.  
  68. (set #confirm-target-help
  69. (cat "\nThe installation program guesses, that version 3.5 "
  70.      "should probably be installed on partition \"%s\" "
  71.      "In the further installation process "
  72.      "most of the files on this partition will be replaced with newer "
  73.      "files.\n\n"
  74. ))
  75.  
  76. (set #which-disk
  77. (cat "On which partition should version 3.5 be installed?"
  78. ))
  79.  
  80. (set #which-disk-help
  81. (cat "\nThis section lets you choose on which hard drive partition the "
  82.      "Release 3.5 files will be installed. These should normally go "
  83.      "to the same directory you installed AmigaOS 3.1 to."
  84.      @askdir-help
  85. ))
  86.  
  87. (set #old-name
  88. (cat "OLD"
  89. ))
  90.  
  91. (set #deleting-obsolete
  92. (cat "\n\nDeleting obsolete files..."
  93. ))
  94.  
  95. (set #confirm-delete
  96. (cat "\n\nShould the file \"%s\" be deleted?"
  97. ))
  98.  
  99. (set #confirm-delete-help
  100. (cat "\nThe file \"%s\" is no longer "
  101.      "useful under Release 3.5. You can delete the file by selecting "
  102.      "the \"Yes\" gadget, or preserve the file by selecting the \"No\" "
  103.      "gadget."
  104. ))
  105.  
  106. (set #confirm-delete-reason-2
  107. (cat "The functionality of this program has been integrated into other "
  108.      "Workbench programs."
  109. ))
  110.  
  111. (set #confirm-delete-reason-3
  112. (cat "This program was moved to a different location and will be updated "
  113.      "there."
  114. ))
  115.  
  116. (set #confirm-delete-reason-4
  117. (cat "This program is obsolete and should not be used with Release 3.5"
  118. ))
  119.  
  120. (set #confirm-delete-1
  121. (cat "Yes"
  122. ))
  123.  
  124. (set #confirm-delete-2
  125. (cat "No"
  126. ))
  127.  
  128. (set #which-printer
  129. (cat "Which printer drivers should be installed?"
  130. ))
  131.  
  132. (set #which-printer-help
  133. (cat "\nThe Amiga can control many different printers. "
  134.      "Printer drivers are files that let the Amiga adapt to a given "
  135.      "printer. There must be a printer driver copied to your "
  136.      "hard drive for each printer supported.\n\n"
  137.      "To reduce the amount of space consumed by the "
  138.      "printer driver files, you can select only the "
  139.      "drivers that are useful to you.\n\n"
  140.      "Check the boxes of the printers you wish "
  141.      "to have available on your system.\n\n"
  142.      @askoptions-help
  143. ))
  144.  
  145. (set #preparing-icons
  146. (cat "\n\nPreparing icons..."
  147. ))
  148.  
  149. (set #positioning-icons
  150. (cat "\n\nPositioning icons..."
  151. ))
  152.  
  153. (set #installing
  154. (cat "\n\nWorking on installation..."
  155. ))
  156.  
  157. (set #reboot
  158. (cat "\nThe installation of Boing Bag 1 is now complete.\n\n"
  159.      "To enable the updated files, you must reboot your Amiga.\n\n"
  160.      "Remove all the disks from the floppy drive, and "
  161.      "Select the \"Proceed\" gadget to reboot your Amiga."
  162. ))
  163.  
  164. ;=============================================================================
  165. ; German strings
  166.  
  167. (if (= #language "deutsch")
  168. (
  169. (set default_lang 2)
  170. (set default_country 16)
  171. (set #languages 16)
  172.  
  173. (set #pretendabort "Dieses Installationsprogramm unterstützt den Simulationsmodus (Scheinbar installieren) nicht.")
  174.  
  175. (set #mainwelcome "Willkommen zur Installation der AmigaOS 3.5 Update Paketes.\n")
  176.  
  177. (set #bad-3.5
  178. (cat "Sie müssen zuerst die Installation von Workbench 3.5 durchgeführt haben.\n\n"
  179.      "Bitte starten Sie zunächst die entsprechende Installation von Ihrer OS3.5 CD!!!"
  180. ))
  181.  
  182. (set #bad-kick
  183. (cat "\n\nSie müssen Kickstart 3.1 und die Workbench 3.1 zur Nutzung von Workbench 3.5 vorinstallieren."
  184. ))
  185.  
  186. (set #notenoughmemory
  187. (cat "\n\nSie benötigen mindestens 10MByte freien Speicher auf Ihrer Bootpartition!"
  188.                         "\n\nLeider haben Sie nur noch \"%s\" KByte frei.\n\n"
  189.                         "Löschen oder verschieben Sie einige unnötige Dateien oder vergrößern Sie Ihre Partition."
  190. ))
  191.  
  192. (set #introduction
  193. (cat "\n\nHiermit können Sie das OS3.5 Update Paket auf Ihrer "
  194.      "Festplatte installieren.\n\nSie können damit die Version 3.5 von AmigaOS "
  195.      "aktualisieren."
  196. ))
  197.  
  198. (set #confirm-target
  199. (cat "\n\nBITTE BEACHTEN!!!\n\nDieses Programm installiert das 3.5 Update Paket auf Ihrer Festplatte. "
  200.      "Bisherige Dateien werden überschrieben.\n\n"
  201.      "Wollen Sie das Boing Bag 1 auf der Partition \"%s\" installiert "
  202.      "bekommen?"
  203. ))
  204.  
  205. (set #confirm-target-help
  206. (cat "\nDas Installationsprogramm hat herausgefunden, daß die Version 3.5 "
  207.      "wahrscheinlich auf der Partition namens \"%s\" installiert "
  208.      "werden soll. Bei der weiteren Installation "
  209.      "werden die meisten Dateien in dieser Partition durch neuere Dateien "
  210.      "ersetzt.\n\n"
  211. ))
  212.  
  213. (set #which-disk
  214. (cat "Auf welcher Partition soll Version 3.5 installiert werden?"
  215. ))
  216.  
  217. (set #which-disk-help
  218. (cat "\nHier können Sie wählen, auf welcher Festplattenpartition "
  219.      "die Dateien von Version 3.5 installiert werden sollen. "
  220.      "Sie sollten normalerweise an dieselbe Stelle installiert werden "
  221.      "wie die bisherigen Dateien von Version 1.3, 2, 2.1 oder 3.1.\n\n"
  222.      @askdir-help
  223. ))
  224.  
  225. (set #old-name
  226. (cat "ALT"
  227. ))
  228.  
  229. (set #checking-target
  230. (cat "\n\nÜberprüfen von \"%s\" auf überholte Dateien ..."
  231. ))
  232.  
  233. (set #delete-old
  234. (cat "\n\nViele System-Dateien, die unter früheren Versionen "
  235.      "benötigt wurden, werden unter Version 3.5 nicht länger gebraucht. "
  236.      "Diese Dateien sollen nun aus Ihrem System gelöscht werden.\n\n"
  237.      "Wollen Sie bei jeder Datei einzeln um Bestätigung gebeten werden, "
  238.      "oder können sie alle automatisch gelöscht werden?"
  239. ))
  240.  
  241. (set #delete-old-help
  242. (cat "\nÄltere Systemversionen umfassen mehrere Dateien, die "
  243.      "unter Version 3.5 nutzlos sind. Diese Dateien sollten gelöscht "
  244.      "werden, um Unordnung zu vermeiden und Platz auf Ihrer Festplatte "
  245.      "zu sparen.\n\n"
  246.      "Nach Anklicken von \"Automatisch löschen\" werden alle überholten "
  247.      "Systemdateien ohne weitere Nachfrage gelöscht.\n"
  248.      "Nach Anklicken von \"Löschen bestätigen\" bittet das Installationsprogramm "
  249.      "bei jeder Datei vor dem Löschen um Bestätigung. Somit können Sie "
  250.      "bestimmte Dateien erhalten, die Sie nicht löschen wollen.\n\n"
  251. ))
  252.  
  253. (set #delete-old-1
  254. (cat "Automatisch löschen"
  255. ))
  256.  
  257. (set #delete-old-2
  258. (cat "Löschen bestätigen"
  259. ))
  260.  
  261. (set #deleting-obsolete
  262. (cat "\n\nLöschen überholter Dateien"
  263. ))
  264.  
  265. (set #confirm-delete
  266. (cat "\n\nKann die Datei \"%s\" gelöscht werden?"
  267. ))
  268.  
  269. (set #confirm-delete-help
  270. (cat "\nDie Datei "
  271.      "\"%s\" ist unter Version 3.5 überholt. Sie können die Datei "
  272.      "durch Anklicken von \"Ja\" löschen oder durch Anklicken von \"Nein\" "
  273.      "erhalten."
  274. ))
  275.  
  276. (set #confirm-delete-reason-1
  277. (cat "Diese Datei ist in Version 3.5 jetzt in das ROM integriert."
  278. ))
  279.  
  280. (set #confirm-delete-reason-2
  281. (cat "Die Aufgaben dieses Programms werden jetzt von anderen "
  282.      "Workbench-Programmen übernommen."
  283. ))
  284.  
  285. (set #confirm-delete-reason-3
  286. (cat "Dieses Programm wurde auf einen anderen Pfad verlegt und wird "
  287.      "dort aktualisiert."
  288. ))
  289.  
  290. (set #confirm-delete-reason-4
  291. (cat "Dieses Programm ist überholt und sollte nicht unter Version 3.5 "
  292.      "benutzt werden."
  293. ))
  294.  
  295. (set #confirm-delete-1
  296. (cat "Ja"
  297. ))
  298.  
  299. (set #confirm-delete-2
  300. (cat "Nein"
  301. ))
  302.  
  303. (set #which-printer
  304. (cat "Welche Druckertreiber sollen installiert werden?"
  305. ))
  306.  
  307. (set #which-printer-help
  308. (cat "\nDer Amiga kann viele verschiedene Drucker ansteuern. "
  309.      "Druckertreiber sind Dateien, mit denen sich der Amiga an den "
  310.      "jeweiligen Drucker anpassen kann. Für jeden verwendeten Drucker "
  311.      "muß eine Druckertreiberdatei auf die Festplatte kopiert werden.\n\n"
  312.      "Um den Platz in Grenzen zu halten, den die Treiberdateien einnehmen, "
  313.      "können Sie wählen, nur diejenigen Treiber zu installieren, die Sie "
  314.      "überhaupt verwenden können.\n\n"
  315.      "Klicken Sie einfach die Felder derjenigen Drucker an, die Sie in "
  316.      "Ihrem System verfügbar haben wollen, so daß diese Drucker mit "
  317.      "einem Häkchen markiert sind.\n\n"
  318.      @askoptions-help
  319. ))
  320.  
  321. (set #which-keymap
  322. (cat "Welche Tastaturbelegung (Keymap) soll installiert werden?"
  323. ))
  324.  
  325. (set #which-keymap-help
  326. (cat "\nDer Amiga kann mit vielen verschiedenen Tastaturen betrieben "
  327.      "werden. "
  328.      "Eine \"Keymap\"-Datei (Tastaturbelegung) beschreibt dem Amiga "
  329.      "eine Tastatur, so daß sie korrekt benutzt werden kann. Wählen "
  330.      "Sie aus der Liste die Tastatur aus, die Sie haben.\n\n"
  331.      "Klicken Sie einfach die Felder derjenigen Tastaturbelegungen an, "
  332.      "die Sie in Ihrem System verfügbar haben wollen, so daß diese mit "
  333.      "einem Häkchen markiert sind.\n\n"
  334.      @askoptions-help
  335. ))
  336.  
  337. (set #boardsoptstxt "Bitte Boardtyp auswaehlen")
  338. (set #noboards "Kein PPC-Board vorhanden")
  339. (set #cyberstorm "CyberStormPPC A3000/A4000")
  340. (set #developerboard "CyberStorm Developerboard")
  341. (set #blizzard "Blizzard PPC A1200")
  342.  
  343. (set #boardopts_help (cat "\n"
  344.     "Wählen Sie bitte das entsprechende, in Ihrem Amiga eingebaute PowerPC-Board aus. "
  345.     "Wenn Sie noch ueber kein Board verfuegen, wählen Sie einfach \"Kein PPC-Board vorhanden\". "
  346.     "Sie könenn dann dennoch die beigefuegten Demos ablaufen lassen.\n\n"
  347.     "Die 'warpHW.library' ist der Hardware-Treiber fuer den WarpUp-HAL. Im "
  348.     "Verzeichnis 'hwdrivers' befindet sich eine ausfuehrliche Dokumentation und "
  349.     "Beispiel-Sourcen, welche es jedermann erlauben, WarpUp-Treiber fuer neue "
  350.     "PPC-Hardware zu entwickeln. Fuer jede Hardware gibt es eine warpHW.library. "
  351.     "Es muss natuerlich die korrekte Version installiert sein. Dies kann man "
  352.     "ueberpruefen, indem man das Programm 'GetDriverInfo' (im 'tools'-Verzeichnis) "
  353.     "laufen laesst, welches in der Shell ausgibt, welche Hardware der Treiber "
  354.     "repraesentiert."
  355.     ))
  356.  
  357.  
  358. (set #envoptstxt "Bitte wählen Sie Ihre Einstellung!")
  359.  
  360. (set #envdebug "Debug-Modus")
  361. (set #envmemprot "PPC-Speicherschutz")
  362. (set #envearlyterm "WShell-Kompatibel")
  363. (set #envnoppc "PPC-Board ausgebaut")
  364. (set #envhidewarning "Warnungen ignorieren")
  365. (set #envterminator "PPC.lib Autoterminator")
  366.  
  367. (set #envopts_help ( cat "\n"
  368.       "Voreinstellungen\n\n"
  369.       "WarpOS kennt einige Env-Variablen, womit gewisse Voreinstellungen gemacht "
  370.       "werden können. Zur Zeit können folgende Variablen über den "
  371.       "Installer konfiguriert werden:\n\n"
  372.  
  373.       "WShell-Kompatibilität - env:powerpc/earlyterm\n\n"
  374.  
  375.       "Wenn diese Variable nicht gesetzt ist, kann es im Zusammenhang mit Programmen "
  376.       "wie der WShell zu grossen Problemen kommen, in diesem Fall sollte diese "
  377.       "Variable gesetzt werden. Dann können aber die Tool-Programme 'stackppc' und "
  378.       "'changemmu' nicht mehr benützt werden. Der PPC-Stack kann dann aber mit dem "
  379.       "Stack-Befehl gesetzt werden (Der PPC-Stack ist etwa doppelt so gross wie der "
  380.      "68K-Stack der Shell).\n\n"
  381.  
  382.       ))
  383.  
  384. (set #install_powerpclib "Kopiere die Bibliotheken nach Libs:")
  385. (set #install_powerpclib_help "Die Bibliothek wird zwangsläufig zum Betrieb benoetigt.")
  386.  
  387. (set #gfxoptstxt "Haben Sie eine der beiden Grafikkarten CVisonPPC oder BVisonPPC in Ihrem Amiga installiert?")
  388. (set #cvppctxt "CyberVisionPPC")
  389. (set #bvppctxt "BlizzardVisionPPC")
  390. (set #othergfx "Andere Grafikkarte")
  391. (set #nogfx "Keine Grafikkarte")
  392.  
  393. (set #old-name
  394. (cat "ALT"
  395. ))
  396.  
  397. (set #preparing-icons
  398. (cat "\n\nVorbereiten der Piktogramme ..."
  399. ))
  400.  
  401. (set #positioning-icons
  402. (cat "\n\nPositioniere Ikons..."
  403. ))
  404.  
  405. (set #installing
  406. (cat "\n\nInstalliere das Update..."
  407. ))
  408.  
  409. (set #reboot
  410. (cat "Die Installation des Update Paketes ist nun abgeschlossen.\n\n"
  411.      "Um die Version 3.5 zu aktivieren, müssen Sie Ihren Amiga neu "
  412.      "starten. "
  413.      "Nehmen Sie die eventuell vorhandene Disketten aus Ihren Diskettenlaufwerken "
  414.      "und klicken Sie dann auf \"Weiter\", um Ihren Amiga neu zu starten.\n\n"
  415. ))
  416.  
  417. ))
  418.  
  419. ;=============================================================================
  420. ; Portugues strings
  421.  
  422. (if (= #language "português")
  423. (
  424. (set default_lang 256)
  425. (set default_country 1024)
  426. (set #languages 4096)
  427.  
  428. ))
  429.  
  430. ;=============================================================================
  431. ; Spanish strings
  432.  
  433. (if (= #language "español")
  434. (
  435. (set default_lang 8)
  436. (set default_country 64)
  437. (set #languages 32)
  438. ))
  439.  
  440. ;=============================================================================
  441. ; French strings
  442.  
  443. (if (= #language "français")
  444. (
  445. (set default_lang 16)
  446. (set default_country 128)
  447. (set #languages 64)
  448.  
  449. ))
  450.  
  451. ;=============================================================================
  452. ; Dutch strings
  453.  
  454. (if (= #language "nederlands")
  455. (
  456. (set default_lang 64)
  457. (set default_country 2)
  458. (set #languages 512)
  459. ))
  460.  
  461. ;=============================================================================
  462. ; Italian strings
  463.  
  464. (if (= #language "italiano")
  465. (
  466. (set default_lang 32)
  467. (set default_country 256)
  468. (set #languages 256)
  469.  
  470. ))
  471.  
  472.  
  473. ;=============================================================================
  474. ; Danish strings
  475.  
  476. (if (= #language "dansk")
  477. (
  478. (set default_lang 1)
  479. (set default_country 8)
  480. (set #languages 8)
  481. ))
  482.  
  483. ;=============================================================================
  484. ; Swedish strings
  485.  
  486. (if (= #language "svenska")
  487. (
  488. (set default_lang 512)
  489. (set default_country 8192)
  490. (set #languages 131072)
  491. ))
  492.  
  493. ;=============================================================================
  494. ; Norwegian strings
  495.  
  496. (if (= #language "norsk")
  497. (
  498. (set default_lang 128)
  499. (set default_country 512)
  500. (set #languages 65536)
  501.  
  502. ))
  503.  
  504. ;=============================================================================
  505. ; procedure to call on exit...
  506.  
  507. (procedure TERMINATE
  508.         (makeassign "CacheCDFSInst" (safe))
  509.         (makeassign "CacheCDFS" (safe))
  510. )
  511.  
  512. ;=============================================================================
  513. ; termination stuff
  514.  
  515. (onerror (TERMINATE))
  516.  
  517. ;=============================================================================
  518. ; do a bit of set up...
  519.  
  520. (set sourcePath (expandpath (pathonly @icon)))
  521.  
  522. (set workbenchPath (tackon sourcePath "Workbench"))
  523. (set printerPath (tackon sourcePath "Printers"))
  524. (set romupdatePath (tackon sourcePath "ROM-Update"))
  525. (set internetPath (tackon sourcePath "Internet"))
  526.  
  527. (run (cat "Resident " (tackon sourcePath "Install-Tools/IconPos PURE")) (safe))
  528. (run (cat "Resident " (tackon sourcePath "Install-Tools/Delete PURE")) (safe))
  529.  
  530. (set #old_wb "SYS:")
  531. (set #old_wb (expandpath #old_wb))
  532.  
  533. (user 2)
  534. (set #theirlevel @user-level)
  535.  
  536. ;=============================================================================
  537. ; what do you want to do?
  538.  
  539. (if (< #iconversion 44)
  540.     (
  541.         (message #bad-3.5) ; No OS3.5 installed
  542.         (exit (quiet))
  543.     )
  544.    (
  545.    ;******************************************************************
  546.    ;***************** Boing BAG Installation *************************
  547.    ;******************************************************************
  548.    (complete 1)
  549.  
  550.    (message #introduction)
  551.  
  552.  
  553.       (complete 5)
  554.  
  555.       (user 0)
  556.       (welcome #mainwelcome)
  557.       (set #theirlevel @user-level)
  558.  
  559.       (if @pretend
  560.         (abort #pretendabort)
  561.       )
  562.  
  563.       (trace) ;hierhin zurueck
  564.  
  565.       (complete 10)
  566.  
  567.       (message (#confirm-target #old_wb))
  568.       (set target #old_wb)
  569.  
  570.       (set @default-dest target)
  571.       (set stash_old (tackon target #old-name))
  572.  
  573.       (complete 15)
  574.  
  575.       ;=============================================================================
  576.       ; which printer drivers should be installed?
  577.       (trace)
  578.  
  579.       (user 2)
  580.       (set prt (askoptions (prompt #which-printer)
  581.                            (help #which-printer-help)
  582.                            (choices "HP LaserJet (all Models)"
  583.                                     "HP DeskJet (all Models)"
  584.  
  585.                            )
  586.                            (default 0)
  587.                            (back (retrace))
  588.                 )
  589.       )
  590.       (user #theirlevel)
  591.       (complete 20)
  592.  
  593.       ;=============================================================================
  594.       ; get the version of what is currently installed
  595.  
  596.       (set old_version 0)
  597.       (if (exists (tackon target "Libs/version.library"))
  598.       (
  599.           (set old_version (/ (getversion (tackon target "Libs/version.library")) 65536))
  600.       ))
  601.  
  602.       (complete 30)
  603.  
  604.       ;=============================================================================
  605.       ; now copy the Workbench disk
  606.  
  607.       (working #installing)
  608.  
  609.       (copyfiles (source workbenchPath)
  610.                  (dest target)
  611.                  (all)
  612.                  (optional "nofail" "force" "askuser")
  613.       )
  614.  
  615.       (complete 50)
  616.  
  617.       ;=============================================================================
  618.       ; do the printer driver schtick
  619.  
  620.       (set n 0)
  621.       (set printerpat "(%")
  622.       (while (set printer (select n "HP_Laser#?"
  623.                                     "HP_Desk#?"
  624.                                     ""
  625.                            )
  626.              )
  627.       (
  628.           (if (IN prt n)
  629.           (
  630.               (set printerpat (cat printerpat "|" printer))
  631.           ))
  632.           (set n (+ n 1))
  633.       ))
  634.  
  635.       (copyfiles (source printerPath)
  636.                  (dest (tackon target "Devs/Printers"))
  637.                  (pattern (cat printerpat ")"))
  638.                  (optional "nofail" "force" "askuser")
  639.       )
  640.  
  641.       (complete 70)
  642.  
  643.       ;=============================================================================
  644.       ; ROM Update!
  645.       ;
  646.       (if (exists (tackon target "Devs/AmigaOS ROM Update"))
  647.           (
  648.               (copyfiles (source romupdatePath)
  649.                          (dest (tackon target "Devs"))
  650.                          (all)
  651.                          (optional "nofail" "force" "askuser")
  652.               )
  653.  
  654.           )
  655.       )
  656.  
  657.       (complete 80)
  658.  
  659.       ;=============================================================================
  660.       ; Internet!
  661.       ;
  662.       (if (exists (tackon target "Internet"))
  663.           (
  664.               (copyfiles (source internetPath)
  665.                          (dest target)
  666.                          (all)
  667.                          (optional "nofail" "force" "askuser")
  668.               )
  669.  
  670.           )
  671.       )
  672.  
  673.       (complete 90)
  674.  
  675.       ;=============================================================================
  676.       ; Clean up!
  677.       ;
  678.       (working #positioning-icons)
  679.  
  680.       (complete 95)
  681.  
  682.       (run (cat "IconPos >NIL: \"" target "Christmas-Look\" 160 150\n"))
  683.  
  684.       (complete 100)
  685.  
  686.       ;=============================================================================
  687.       ; "Say goodnight Gracy."
  688.  
  689.       (user 2)
  690.       (message #reboot)
  691.       (reboot)
  692.    )
  693. )
  694.